Fix compilation warning in obsolete/complete.el

* lisp/obsolete/complete.el (completion-base-size): Avoid
compilation warning.

diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index bf16fb25cd0be98b29d484f97345e63100fcbde7..b1448e72e867e7203374b8768c6ed806aca45fd7 100644 (file)
--- a/lisp/obsolete/complete.el
+++ b/lisp/obsolete/complete.el
@@ -431,6 +431,8 @@ of `minibuffer-completion-table' and the minibuffer contents.")
   (let ((result (try-completion string alist predicate)))
     (if (eq result t) string result)))
 
+(defvar completion-base-size)
+
 ;; TODO document MODE magic...
 (defun PC-do-completion (&optional mode beg end goto-end)
   "Internal function to do the work of partial completion.